<html xmlns="http://www.w3.org/1999/xhtml">
 <head>
  <meta charset="utf-8"/>
  <link href="themes/blue/style.css" rel="StyleSheet" type="text/css"/>
  <style type="text/css">
   header { background-color:white;} .drag {position:absolute;}
  </style>
  <script src="tablesorter/jquery-latest.js" type="text/javascript">
  </script>
  <script src="tablesorter/jquery.tablesorter.js" type="text/javascript">
  </script>
  <script src="external/mousescroll.js" type="text/javascript">
  </script>
  <script src="external/jquery.drag.js" type="text/javascript">
  </script>
  <script src="external/jquery.drop.js" type="text/javascript">
  </script>
  <script type="text/javascript">
   $(function () {
 $("#tab1").tablesorter({sortList:[[0,20]]});  
     });
  </script>
  <script>
  </script>
  <script type="text/javascript">
   parent.document.getElementById('result2-name').innerHTML = "File: logic/hanoi.pli, Line: 1:0";
  </script>
  <title>
   File: logic/hanoi.pli, Line: 1:0
  </title>
  <meta charset="utf-8"/>
  <link href="external/docs.css" rel="stylesheet"/>
  <link href="external/codemirror/codemirror.css" rel="stylesheet"/>
  <script src="external/codemirror/codemirror.js">
  </script>
  <script src="external/codemirror/matchbrackets.js">
  </script>
  <script src="external/codemirror/shell.js">
  </script>
  <script src="external/codemirror/cobol.js">
  </script>
  <script src="external/codemirror/clike.js">
  </script>
  <style type="text/css">
   .CodeMirror { height: auto;  }
  </style>
 </head>
 <body bgcolor="ffffff">
  <br/>
  <textarea id="code" >
   hanoi : PROC OPTIONS (main);
    DCL RC FIXED BIN (31);
    DCL hwndClient FIXED BIN (31);
    DCL (tbl_cur, tbl_size) FIXED BIN (31);
    DCL rectlClient LIKE rectl_type;
    DCL rectlFrame LIKE rectl_type;
    DCL window_title CHAR (64);
    DCL window_class CHAR (64);
    DCL
        flFrameFlags
            BIT (32)
            INIT (FCF_MINBUTTON | FCF_SYSMENU | FCF_TITLEBAR | FCF_TASKLIST |
                  FCF_SHELLPOSITION |
                  FCF_BORDER);
    DCL wsWindowStyle BIT (32) INIT ('00000000'bx);
    tbl_cur = 0;
    tbl_size = 2 ** NUMBER_OF_DISKS;
    pMove = ALLOCATE (stg (null ()-&gt;move_table) * tbl_size);
    CALL hanoi_inner (NUMBER_OF_DISKS, 1, 3, 2);
    IF tbl_cur = tbl_size THEN DO ; display ('Too many moves'); SIGNAL error;
        END;
    tbl_cur = tbl_cur + 1;
    pMove-&gt;from (tbl_cur) = 0;
    pMove-&gt;to (tbl_cur) = 0;
    %INCLUDE "hanoi_inner.pli";
    %INCLUDE "movedisk.pli";
    hab = Wininitialize (0);
    hmq = WinCreateMsgQueue (hab, 0);
    scrn_resolution = 0;
    CALL get_screen_resolution;
    RC = GpiQueryTextBox
    (WinGetScreenPS (HWND_DESKTOP), length (WindowText),
     addr (WindowText) + stg (null ()-&gt;VarStr), 4, addr (WindowTextbox));
    IF RC = 0 THEN DO ;
        RC = WinGetLastError (hab);
        display ('GpiQueryTextBox returned ' || heximage (addr (RC), 2));
        return;
        END;
    window_title = 'Towers of Hanoi' || '00'x;
    window_class = 'HANOICLASS' || '00'x;
    RC = WinRegisterClass (hab, addr (window_class), client, '00000000'bx, 0);
    IF RC = 0 THEN DO ;
        RC = WinGetLastError (hab);
        display ('WinRegisterClass returned ' || heximage (addr (RC), 2));
        return;
        END;
    hwndFrame = WinCreateStdWindow
    (HWND_DESKTOP, wsWindowStyle, addr (flFrameFlags), addr (window_class),
     addr (window_title), '00000000'bx, 0, 0, addr (hwndClient));
    IF hwndFrame = 0 THEN DO ;
        RC = WinGetLastError (hab);
        display ('WinCreateStdWindow returned ' || heximage (addr (RC), 2));
        return;
        END;
    rectlClient.xleft = 0;
    rectlClient.ybottom = 0;
    rectlClient.xright = 22 * horz_resolution;
    rectlClient.ytop =
    ceil (NUMBER_OF_DISKS * vert_resolution) + 4 * vert_resolution;
    rectlClient.ytop =
    rectlClient.ytop + WindowTextbox (2).y - WindowTextbox (1).y;
    rectlFrame = rectlClient;
    RC = WinMapWindowPoints (hwndClient, HWND_DESKTOP, addr (rectlFrame), 2);
    IF RC = 0 THEN display
        ('WinMapWindowPoints RC=' || heximage (addr (RC), 4));
    RC = WinCalcFrameRect (hwndFrame, addr (rectlFrame), 0);
    IF RC = 0 THEN display ('WinCalcFrameRect RC=' || heximage (addr (RC), 4));
    %REPLACE SWP_SIZE BY '01000000'bx;
    %REPLACE SWP_MOVE BY '02000000'bx;
    %REPLACE SWP_ZORDER BY '04000000'bx;
    %REPLACE SWP_SHOW BY '08000000'bx;
    RC = WinSetWindowPos
    (hwndFrame, 0, 0, 0, rectlFrame.xright, rectlFrame.ytop,
     SWP_SIZE | SWP_SHOW);
    IF RC = 0 THEN display ('WinSetWindowPos RC=' || heximage (addr (RC), 4));
    RC = WinShowWindow (hwndFrame, 1);
    DO WHILE ('1'b);
        RC = WinGetMsg (hab, addr (qmsg), 0, 0, 0);
        IF rc = 0 THEN LEAVE;
        RC = WinDispatchMsg (hab, addr (qmsg));
        END;
    RC = WinDestroyWindow (hwndFrame);
    RC = WinDestroyMsgQueue (hmq);
    RC = Winterminate (hab);
    return;
    END hanoi;
  </textarea>
  <div class="CodeMirror cm-s-default">
   <div >
    <textarea autocapitalize="off" autocorrect="off" spellcheck="false" >
    </textarea>
   </div>
   <div class="CodeMirror-hscrollbar" >
    <div >
    </div>
   </div>
   <div class="CodeMirror-vscrollbar" >
    <div >
    </div>
   </div>
   <div class="CodeMirror-scrollbar-filler">
   </div>
   <div class="CodeMirror-gutter-filler">
   </div>
   <div class="CodeMirror-scroll" draggable="true" tabindex="-1">
    <div class="CodeMirror-sizer" >
     <div >
      <div class="CodeMirror-lines">
       <div >
        <div class="CodeMirror-measure">
         <div >
         </div>
        </div>
        <div class="CodeMirror-measure">
        </div>
        <div >
        </div>
        <div class="CodeMirror-cursors">
         <div class="CodeMirror-cursor" >
         </div>
        </div>
        <div class="CodeMirror-code" >
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            1
           </div>
          </div>
          <pre class=""><span>hanoi : PROC OPTIONS (main);</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            2
           </div>
          </div>
          <pre class=""><span>    DCL RC FIXED BIN (31);</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            3
           </div>
          </div>
          <pre class=""><span>    DCL hwndClient FIXED BIN (31);</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            4
           </div>
          </div>
          <pre class=""><span>    DCL (tbl_cur, tbl_size) FIXED BIN (31);</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            5
           </div>
          </div>
          <pre class=""><span>    DCL rectlClient LIKE rectl_type;</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            6
           </div>
          </div>
          <pre class=""><span>    DCL rectlFrame LIKE rectl_type;</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            7
           </div>
          </div>
          <pre class=""><span>    DCL window_title CHAR (64);</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            8
           </div>
          </div>
          <pre class=""><span>    DCL window_class CHAR (64);</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            9
           </div>
          </div>
          <pre class=""><span>    DCL</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            10
           </div>
          </div>
          <pre class=""><span>        flFrameFlags</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            11
           </div>
          </div>
          <pre class=""><span>            BIT (32)</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            12
           </div>
          </div>
          <pre class=""><span>            INIT (FCF_MINBUTTON | FCF_SYSMENU | FCF_TITLEBAR | FCF_TASKLIST |</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            13
           </div>
          </div>
          <pre class=""><span>                  FCF_SHELLPOSITION |</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            14
           </div>
          </div>
          <pre class=""><span>                  FCF_BORDER);</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            15
           </div>
          </div>
          <pre class=""><span>    DCL wsWindowStyle BIT (32) INIT ('00000000'bx);</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            16
           </div>
          </div>
          <pre class=""><span>    tbl_cur = 0;</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            17
           </div>
          </div>
          <pre class=""><span>    tbl_size = 2 ** NUMBER_OF_DISKS;</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            18
           </div>
          </div>
          <pre class=""><span>    pMove = ALLOCATE (stg (null ()-&gt;move_table) * tbl_size);</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            19
           </div>
          </div>
          <pre class=""><span>    CALL hanoi_inner (NUMBER_OF_DISKS, 1, 3, 2);</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            20
           </div>
          </div>
          <pre class=""><span>    IF tbl_cur = tbl_size THEN DO ; display ('Too many moves'); SIGNAL error;</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            21
           </div>
          </div>
          <pre class=""><span>        END;</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            22
           </div>
          </div>
          <pre class=""><span>    tbl_cur = tbl_cur + 1;</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            23
           </div>
          </div>
          <pre class=""><span>    pMove-&gt;from (tbl_cur) = 0;</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            24
           </div>
          </div>
          <pre class=""><span>    pMove-&gt;to (tbl_cur) = 0;</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            25
           </div>
          </div>
          <pre class=""><span>    %INCLUDE "hanoi_inner.pli";</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            26
           </div>
          </div>
          <pre class=""><span>    %INCLUDE "movedisk.pli";</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            27
           </div>
          </div>
          <pre class=""><span>    hab = Wininitialize (0);</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            28
           </div>
          </div>
          <pre class=""><span>    hmq = WinCreateMsgQueue (hab, 0);</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            29
           </div>
          </div>
          <pre class=""><span>    scrn_resolution = 0;</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            30
           </div>
          </div>
          <pre class=""><span>    CALL get_screen_resolution;</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            31
           </div>
          </div>
          <pre class=""><span>    RC = GpiQueryTextBox</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            32
           </div>
          </div>
          <pre class=""><span>    (WinGetScreenPS (HWND_DESKTOP), length (WindowText),</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            33
           </div>
          </div>
          <pre class=""><span>     addr (WindowText) + stg (null ()-&gt;VarStr), 4, addr (WindowTextbox));</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            34
           </div>
          </div>
          <pre class=""><span>    IF RC = 0 THEN DO ;</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            35
           </div>
          </div>
          <pre class=""><span>        RC = WinGetLastError (hab);</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            36
           </div>
          </div>
          <pre class=""><span>        display ('GpiQueryTextBox returned ' || heximage (addr (RC), 2));</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            37
           </div>
          </div>
          <pre class=""><span>        return;</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            38
           </div>
          </div>
          <pre class=""><span>        END;</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            39
           </div>
          </div>
          <pre class=""><span>    window_title = 'Towers of Hanoi' || '00'x;</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            40
           </div>
          </div>
          <pre class=""><span>    window_class = 'HANOICLASS' || '00'x;</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            41
           </div>
          </div>
          <pre class=""><span>    RC = WinRegisterClass (hab, addr (window_class), client, '00000000'bx, 0);</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            42
           </div>
          </div>
          <pre class=""><span>    IF RC = 0 THEN DO ;</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            43
           </div>
          </div>
          <pre class=""><span>        RC = WinGetLastError (hab);</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            44
           </div>
          </div>
          <pre class=""><span>        display ('WinRegisterClass returned ' || heximage (addr (RC), 2));</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            45
           </div>
          </div>
          <pre class=""><span>        return;</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            46
           </div>
          </div>
          <pre class=""><span>        END;</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            47
           </div>
          </div>
          <pre class=""><span>    hwndFrame = WinCreateStdWindow</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            48
           </div>
          </div>
          <pre class=""><span>    (HWND_DESKTOP, wsWindowStyle, addr (flFrameFlags), addr (window_class),</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            49
           </div>
          </div>
          <pre class=""><span>     addr (window_title), '00000000'bx, 0, 0, addr (hwndClient));</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            50
           </div>
          </div>
          <pre class=""><span>    IF hwndFrame = 0 THEN DO ;</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            51
           </div>
          </div>
          <pre class=""><span>        RC = WinGetLastError (hab);</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            52
           </div>
          </div>
          <pre class=""><span>        display ('WinCreateStdWindow returned ' || heximage (addr (RC), 2));</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            53
           </div>
          </div>
          <pre class=""><span>        return;</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            54
           </div>
          </div>
          <pre class=""><span>        END;</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            55
           </div>
          </div>
          <pre class=""><span>    rectlClient.xleft = 0;</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            56
           </div>
          </div>
          <pre class=""><span>    rectlClient.ybottom = 0;</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            57
           </div>
          </div>
          <pre class=""><span>    rectlClient.xright = 22 * horz_resolution;</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            58
           </div>
          </div>
          <pre class=""><span>    rectlClient.ytop =</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            59
           </div>
          </div>
          <pre class=""><span>    ceil (NUMBER_OF_DISKS * vert_resolution) + 4 * vert_resolution;</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            60
           </div>
          </div>
          <pre class=""><span>    rectlClient.ytop =</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            61
           </div>
          </div>
          <pre class=""><span>    rectlClient.ytop + WindowTextbox (2).y - WindowTextbox (1).y;</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            62
           </div>
          </div>
          <pre class=""><span>    rectlFrame = rectlClient;</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            63
           </div>
          </div>
          <pre class=""><span>    RC = WinMapWindowPoints (hwndClient, HWND_DESKTOP, addr (rectlFrame), 2);</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            64
           </div>
          </div>
          <pre class=""><span>    IF RC = 0 THEN display</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            65
           </div>
          </div>
          <pre class=""><span>        ('WinMapWindowPoints RC=' || heximage (addr (RC), 4));</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            66
           </div>
          </div>
          <pre class=""><span>    RC = WinCalcFrameRect (hwndFrame, addr (rectlFrame), 0);</span></pre>
         </div>
         <div >
          <div class="CodeMirror-gutter-wrapper" >
           <div class="CodeMirror-linenumber CodeMirror-gutter-elt" >
            67
           </div>
          </div>
          <pre class=""><span>    IF RC = 0 THEN display ('WinCalcFrameRect RC=' || heximage (addr (RC), 4));</span></pre>
         </div>
        </div>
       </div>
      </div>
     </div>
    </div>
    <div >
    </div>
    <div class="CodeMirror-gutters" >
     <div class="CodeMirror-gutter CodeMirror-linenumbers" >
     </div>
    </div>
   </div>
  </div>
  <script>
   var editor = CodeMirror.fromTextArea(document.getElementById('code'), {
             mode : 'mime',
             lineNumbers : true,
             matchBrackets : true,
             readOnly : true
            }); editor.scrollIntoView({line: 1, ch : 0});
editor.setSelection({line: 0 , ch : 0}, {line: 0, ch : 0});
  </script>
 </body>
</html>